Define Large Subreddits
large_subreddits <- pronoun_use_by_score_group %>%
filter(
score_group == "z1000+"
) %>% select(subreddit)
large_subreddits <- large_subreddits[,1,drop = TRUE]
Density plots of pronoun use
library(plotly)
plot_score_group = function (a,pronoun) {
ggplotly(ggplot(a,aes_string(x = paste("contains_",tolower(pronoun),sep=""),color = "score_group")) + geom_density()+
facet_wrap(~topic_level1)
)}
large_sub_pronoun_use <- pronoun_use_by_score_group %>%
filter(
!subreddit %in% large_subreddits
)
plot_score_group(large_sub_pronoun_use,"I")
plot_score_group(large_sub_pronoun_use,"We")
plot_score_group(large_sub_pronoun_use,"They")
agg_pronoun_use <- pronoun_use_by_score_group %>%
filter(grepl("Sports", all_topics)) %>%
group_by(score_group,subreddit,all_topics) %>%
summarise(
agg_i = sum(num_comments*ZNcontains_i )/sum(num_comments),
agg_me = sum(num_comments*ZNcontains_me )/sum(num_comments),
agg_we = sum(num_comments*ZNcontains_we )/sum(num_comments),
agg_us = sum(num_comments*ZNcontains_us )/sum(num_comments),
agg_they = sum(num_comments*ZNcontains_they )/sum(num_comments),
agg_them = sum(num_comments*ZNcontains_them )/sum(num_comments),
agg_you = sum(num_comments*ZNcontains_you )/sum(num_comments),
total_comments = sum(num_comments),
unweighted_i = mean(ZNcontains_i ),
unweighted_me = mean(ZNcontains_me ),
unweighted_we = mean(ZNcontains_we ),
unweighted_us = mean(ZNcontains_us ),
unweighted_they = mean(ZNcontains_they),
unweighted_them = mean(ZNcontains_them),
unweighted_you = mean(ZNcontains_you )
)# %>% arrange(t1_t2)
plot_categories_score_groups = function(agg_pronoun_use,pronoun){
ggplotly(
ggplot(agg_pronoun_use, aes_string(x = "score_group", y = paste("agg_",tolower(pronoun),sep=""), name = "subreddit", color = "all_topics")) +
geom_point(aes(size = total_comments))
)
}
plot_categories_score_groups(agg_pronoun_use,"I")
plot_categories_score_groups(agg_pronoun_use,"Me")
plot_categories_score_groups(agg_pronoun_use,"We")
plot_categories_score_groups(agg_pronoun_use,"Us")
plot_categories_score_groups(agg_pronoun_use,"They")
plot_categories_score_groups(agg_pronoun_use,"Them")
plot_categories_score_groups(agg_pronoun_use,"You")
LS0tCnRpdGxlOiAiMDNfc2NvcmVfZ3JvdXBfYW5hbHlzaXMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KIyMgRGVmaW5lIExhcmdlIFN1YnJlZGRpdHMKCmBgYHtyfQpsYXJnZV9zdWJyZWRkaXRzIDwtIHByb25vdW5fdXNlX2J5X3Njb3JlX2dyb3VwICU+JQogIGZpbHRlcigKICAgIHNjb3JlX2dyb3VwID09ICJ6MTAwMCsiCiAgKSAlPiUgc2VsZWN0KHN1YnJlZGRpdCkKbGFyZ2Vfc3VicmVkZGl0cyA8LSBsYXJnZV9zdWJyZWRkaXRzWywxLGRyb3AgPSBUUlVFXQoKCmBgYAoKCiMjRGVuc2l0eSBwbG90cyBvZiBwcm9ub3VuIHVzZQoKYGBge3J9CmxpYnJhcnkocGxvdGx5KQoKcGxvdF9zY29yZV9ncm91cCA9IGZ1bmN0aW9uIChhLHByb25vdW4pIHsKICBnZ3Bsb3RseShnZ3Bsb3QoYSxhZXNfc3RyaW5nKHggPSBwYXN0ZSgiY29udGFpbnNfIix0b2xvd2VyKHByb25vdW4pLHNlcD0iIiksY29sb3IgPSAic2NvcmVfZ3JvdXAiKSkgKyBnZW9tX2RlbnNpdHkoKSsKICAgICAgICAgICAgIGZhY2V0X3dyYXAofnRvcGljX2xldmVsMSkKICAgICAgICAgICAgICl9CgoKCgoKCmxhcmdlX3N1Yl9wcm9ub3VuX3VzZSA8LSBwcm9ub3VuX3VzZV9ieV9zY29yZV9ncm91cCAlPiUKICBmaWx0ZXIoCiAgICAhc3VicmVkZGl0ICVpbiUgbGFyZ2Vfc3VicmVkZGl0cwogICkgCgoKcGxvdF9zY29yZV9ncm91cChsYXJnZV9zdWJfcHJvbm91bl91c2UsIkkiKSAKcGxvdF9zY29yZV9ncm91cChsYXJnZV9zdWJfcHJvbm91bl91c2UsIldlIikgCnBsb3Rfc2NvcmVfZ3JvdXAobGFyZ2Vfc3ViX3Byb25vdW5fdXNlLCJUaGV5IikKCgpgYGAKCmBgYHtyfQoKCgphZ2dfcHJvbm91bl91c2UgPC0gcHJvbm91bl91c2VfYnlfc2NvcmVfZ3JvdXAgJT4lCiAgZmlsdGVyKGdyZXBsKCJTcG9ydHMiLCBhbGxfdG9waWNzKSkgJT4lCiAgZ3JvdXBfYnkoc2NvcmVfZ3JvdXAsc3VicmVkZGl0LGFsbF90b3BpY3MpICU+JQogIHN1bW1hcmlzZSgKICAgIGFnZ19pICAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfaSAgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ19tZSAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfbWUgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ193ZSAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfd2UgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ191cyAgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdXMgICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ190aGV5ICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdGhleSAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ190aGVtICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfdGhlbSAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIGFnZ195b3UgICAgPSBzdW0obnVtX2NvbW1lbnRzKlpOY29udGFpbnNfeW91ICAgKS9zdW0obnVtX2NvbW1lbnRzKSwKICAgIAogICAgdG90YWxfY29tbWVudHMgPSBzdW0obnVtX2NvbW1lbnRzKSwKICAgIAogICAgdW53ZWlnaHRlZF9pICAgICAgPSAgbWVhbihaTmNvbnRhaW5zX2kgICApLAogICAgdW53ZWlnaHRlZF9tZSAgICAgPSAgbWVhbihaTmNvbnRhaW5zX21lICApLAogICAgdW53ZWlnaHRlZF93ZSAgICAgPSAgbWVhbihaTmNvbnRhaW5zX3dlICApLAogICAgdW53ZWlnaHRlZF91cyAgICAgPSAgbWVhbihaTmNvbnRhaW5zX3VzICApLAogICAgdW53ZWlnaHRlZF90aGV5ICAgPSAgbWVhbihaTmNvbnRhaW5zX3RoZXkpLAogICAgdW53ZWlnaHRlZF90aGVtICAgPSAgbWVhbihaTmNvbnRhaW5zX3RoZW0pLAogICAgdW53ZWlnaHRlZF95b3UgICAgPSAgbWVhbihaTmNvbnRhaW5zX3lvdSApCiAgICAgICAgICAgIAogICAgCiAgKSMgJT4lIGFycmFuZ2UodDFfdDIpIApwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzID0gZnVuY3Rpb24oYWdnX3Byb25vdW5fdXNlLHByb25vdW4pewpnZ3Bsb3RseSgKICBnZ3Bsb3QoYWdnX3Byb25vdW5fdXNlLCBhZXNfc3RyaW5nKHggPSAic2NvcmVfZ3JvdXAiLCB5ID0gcGFzdGUoImFnZ18iLHRvbG93ZXIocHJvbm91biksc2VwPSIiKSwgbmFtZSA9ICJzdWJyZWRkaXQiLCBjb2xvciA9ICJhbGxfdG9waWNzIikpICsKICBnZW9tX3BvaW50KGFlcyhzaXplID0gdG90YWxfY29tbWVudHMpKQopCiAgfQoKcGxvdF9jYXRlZ29yaWVzX3Njb3JlX2dyb3VwcyhhZ2dfcHJvbm91bl91c2UsIkkiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiTWUiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiV2UiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiVXMiKQpwbG90X2NhdGVnb3JpZXNfc2NvcmVfZ3JvdXBzKGFnZ19wcm9ub3VuX3VzZSwiVGhleSIpCnBsb3RfY2F0ZWdvcmllc19zY29yZV9ncm91cHMoYWdnX3Byb25vdW5fdXNlLCJUaGVtIikKcGxvdF9jYXRlZ29yaWVzX3Njb3JlX2dyb3VwcyhhZ2dfcHJvbm91bl91c2UsIllvdSIpCgoKCgoKYGBgCgo=